Sub 데이터_가져오기()

    Dim 경로 As String
    Dim 파일명 As String
    Dim 이번달 As Long

    경로 = ThisWorkbook.Path
    파일명 = "급여대장.xlsx"
    이번달 = Month(Date)

    ChDir 경로
    Workbooks.Open Filename:=경로 & "\" & 파일명
    Range("I6:I10").Copy
    ThisWorkbook.Activate
    Cells(6, 이번달+2).PasteSpecial Paste:=xlPasteValues
    Workbooks(파일명).Activate
    ActiveWorkbook.Close

End Sub